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-- File Process. Mesa 

— Last edited by Sandman on August 23, 1977 9:49 PM 

DIRECTORY 

FrameDefs: FROM "framedefs", 
InlineDefs: FROM " in! inedef s" , 
SystemOefs: FROM "systemdefs" , 
ControlOefs: FROM "controldefs" , 
ProcessDefs: FROM "processdefs" ; 

DEFINITIONS FROM 

InlineDefs, ControlDefs, ProcessDefs; 

Process: PROGRAM IMPORTS FrameDefs, SystemOefs EXPORTS ProcessDefs SHARES ProcessDefs = 
BEGIN 

PVector: POINTER TO ProcessVector *• PV; 

PriorityNotAvailable: PUBLIC ERROR = CODE; 
InvalidPriority: PUBLIC ERROR = CODE; 
InvalidProcess: PUBLIC ERROR = CODE; 
ProcessNotScheduled: PUBLIC ERROR - CODE; 

Val idatePriority: PROCEDURE[p: ProcessPriori ty] = 
BEGIN 

IF p = Unscheduled OR 

p IN [HighestProcessPriority. .LowestProcessPriority] THEN RETURN; 
ERROR InvalidPriority; 
END; 

ValidateProcess: PROCEDURE[p : ProcessHandle] = 
BEGIN 

Val idatePriori ty[p.pn I InvalidPriority => ERROR InvalidProcess ]; 

IF p.pn = Unscheduled THEN RETURN; 

IF PVector[p.pn] ff p THEN ERROR InvalidProcess; 
END; 

CreateProcessFromFrame: PUBLIC PROCEDURE [frame: FrameHandle, priority: ProcessPriori ty] 
RETURNS [p: ProcessHandle] = 
BEGIN OPEN p. state; 

Val idatePriori ty[pr i or i ty]; 

IF PVector[priority] # ProcessNIL THEN ERROR PriorityNotAvailable; 

p«-SystemDefs .Al locateHeapNode[SIZE[ProcessOb ject]] ; 

instbyte*-0 ; 

IF FrameDefs, Class[frame] = global THEN 

BEGIN 

stkptr «- 1; 

stk[0] ♦- 0; 

END 
ELSE stkptr ♦- 0; 
X ♦- frame; 
Y ^ 0; 

p.pn ♦- priority; 

IF priority ^ Unscheduled THEN PVector[priori ty] ♦- p; 
END; 

CreateProcessFromProcedure: PUBLIC PROCFDURE [proc: PROCEDURE, priority: ProcessPr iori ty ] 
RFTURNS [p: ProcessHandle] = 
BEGIN OPEN p. state; 

Val idatePr ior i ty[pr ior i ty] ; 

IF PVector[prior i ty] if ProcessNIL THEN ERROR PriorityNotAvailable; 

p*-Sys temDefs .AllocatelleapNode[SIZC[ProcessObject]]; 
ins tby te*-0 ; 
stkptr*-0; 
X<-proc; 
Y*-0; 

p . pn<-pr ior i ty ; 

IF priority // Unscheduled THEN PVector[pr ior i ty]*-p ; 
END; 



DestroyProcess: PUBl IC PROCfDURr [p: ProcessHandle] = 
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BEGIN 

ValidateProcess[p]; 

SetProcessPriority[p , Unscheduled]; 

SystemDefs . FreeHeapNode[p]; 
END; 

MakeProcessReady: PUBLIC PROCEDURE [p: ProcessHandle] = 
BEGIN 

Val idateProcess[p]; 

IF p.pn = Unscheduled THEN ERROR ProcessNotScheduled ; 

Disablelnterrup ts[] ; 

RPt ♦- BITOR[RPt,BITSHIFT[l,p.pn]]; 

WakeupsWaitingt ♦• BITOR[WakeupsWaitingt , BITSHIFT[1 ,p .pn]] ; 

Enab1elnterrupts[]; 

RETURN 
END; 

ActivateProcess: PUBLIC PROCEDURE [p: ProcessHandle] = 
BEGIN 

Val idateProcess[p] ; 

IF p.pn = Unscheduled THEN ERROR ProcessNotScheduled; 

Disablelnterrupts[]; 

APt ♦- BITOR[APt,BITSHIFT[l,p.pn]]; 

ActiveWordt ♦- BITOR[Acti veWordt , BITSHIFT[1 , p . pn]] ; 

Enablelnterrupts[]; 

RETURN 
END; 

DeActivateProcess: PUBLIC PROCEDURE [p: ProcessHandle] = 
BEGIN 

Val idateProcess[p] ; 

IF p.pn = Unscheduled THEN ERROR ProcessNotScheduled; 

Disablelnterrupts[] ; 

APt - BITAND[APt,BITNOT[BITSHIFT[l,p.pn]]]; 

ActiveWordt ♦- BITAND[Ac ti veWordt , 8ITN0T[BITSHIFT[1 .p .pn]]] ; 

Enablelnterrupts[] ; 

RETURN 
END; 

EnumerateProcess: PUBLIC PROCEDURE [proc: PROCEDURE[ProcessHandl e] RETURNS [BOOLEAN]] 
RETURNS [p: ProcessHandle] = 
BEGIN 

i: ProcessPriority ; 

FOR i IN [HighestProcessPr iori ty . . LowestProcessPriority] DO 
IF (p^PVector[i]) if ProcessNIL AND p U NIL THEN 

IF proc[p] THEN RETURN; 
ENDLOOP; 
RETURN [ProcessNIL] 
END; 

SetProcessPriority: PUBLIC PROCEDURE [p: ProcessHandle, priority: ProcessPriority] = 
BFGIN 

m: WORD; 

Val idateProcess[p] ; 

IF PVector[priority] ff ProcessNIL THEN ERROR Pr ior i tyNotAvai 1 able ; 

IF p.pn if Unscheduled TflEN 

BEGIN 

m - BITNOT[BITSHIFT[l.p.pn]]; 

Disablelnterrup ts[] ; 

RPt t. BITAND[RPt,m]; 

WakeupsWaitingt ♦- BITAND[WakeupsWa i t ingt ,m] ; 

APt ^ BTTAND[APt.m]; 

ActiveWordt ^ B ITAND[Ac t i veWordt ,m] ; 

PVector[p . pn] <- ProcessNIL; 

rnablelnterrupts[] ; 

rND; 
p . pn*-pr ior i ty ; 

Tf priority ti Unscheduled THEN PVector[pr ior i ty] ♦- p: 
FND; 

GetProcessPr ior ity: PUBLIC PROCfDURf [p: ProcessHandle] RFTURNS [ProcessPriority] = 



process. mESA 24-0CT-77 18:38:25 Page 3 



BEGIN 

Val idateProcess[p]; 

RETURN [p.pn] 
END; 

GetCurrentProcess: PUBLIC PROCEDURE RETURNS [ProcessHandle] » 
BEGIN 

RETURN [PVector[CPNt]] 
END; 

GetCurrentPriority: PUBLIC PROCEDURE RETURNS [ProcessPriority] 
BEGIN 

RETURN [CPNt] 
END; 



END... 



